home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / program / amos / amoslist.lzh / AMOSLIST / 000149_amos-request@svcs1.digex.net_Sat Sep 9 15:23:38 1995.msg < prev    next >
Internet Message Format  |  1995-10-02  |  3KB
  1. Received: from svcs1.digex.net (svcs1.digex.net [204.91.197.224]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id PAA09286;  for <mcox@access.digex.net> ; Sat, 9 Sep 1995 15:23:37 -0400
  2. Received: (from daemon@localhost) by svcs1.digex.net (8.6.12/8.6.12) id OAA04645 for amos-out; Sat, 9 Sep 1995 14:08:15 -0400
  3. Received: from mail1.access.digex.net (mail1.access.digex.net [205.197.247.2]) by svcs1.digex.net (8.6.12/8.6.12) with ESMTP id OAA04642 for <amos-list@svcs1.digex.net>; Sat, 9 Sep 1995 14:08:14 -0400
  4. Received: from mail.mel.aone.net.au (mail.mel.aone.net.au [203.12.176.157]) by mail1.access.digex.net (8.6.12/8.6.12) with ESMTP id OAA04405;  for <amos-list@access.digex.net> ; Sat, 9 Sep 1995 14:08:12 -0400
  5. Received: from kyoko.mpx.com.au (kyoko.mpx.com.au [203.2.75.2]) by mail.mel.aone.net.au (8.6.11/8.6.11) with ESMTP id EAA22581 for <amos-list@access.digex.net>; Sun, 10 Sep 1995 04:08:10 +1000
  6. Received: from cristal.mpx.com.au by kyoko.mpx.com.au with smtp
  7.     (Smail3.1.29.1 #7) id m0srULp-0006OLC; Sun, 10 Sep 95 04:10 EST
  8. Received: from comlink.mpx.com.au by cristal.mpx.com.au with uucp
  9.     (Smail3.1.28.1 #3) id m0srTcQ-0000ltC; Sun, 10 Sep 95 03:23 EDT
  10. Received: by comlink.mpx.com.au (V1.16/Amiga)
  11.     id AA024hl; Sat, 9 Sep 95 12:05:24 1100
  12. Date: Sat, 9 Sep 95 12:05:24 1100
  13. Message-Id: <9509091805.AA024hk@comlink.mpx.com.au>
  14. From: Darryl_Lewis@comlink.mpx.com.au (Darryl Lewis)
  15. To: amos-list@access.digex.net
  16. Subject: anim help
  17. Status: RO
  18. X-Status: 
  19.  
  20. A few days ago, Chris sent me the following code to play anims. Since he's
  21. upgrading to a '060 ($#@%$@%$#&^@!) and won't be around for a few days,
  22. perhaps someone else can help further.
  23. Can anyone convert the following into Amos code, as I don't yet have AMCAF
  24. (stupid car repairs have just set me back $200!).
  25.  
  26.  
  27.  
  28. [From    ] Chris@sixpack.pfalz.org (chris H [REC'D] [MSG 504 OF 517]
  29. [To      ] Darryl Lewis                     
  30. [Date    ] Wed  6 Sep 95  4:37
  31. [Subject ] Re: "Klik'n'Play?!" [Sic!]
  32.  
  33. F$="data/AMCAF.anim"
  34. SPEED=2
  35. Examine Object F$
  36. OS=Object Size :Rem Whats this in standard Amos
  37. Reserve As Work 9,OS+12
  38. Bload F$,9
  39. ST=Start(9)
  40. Loke ST+OS,Asc.l("FORM"):Rem What's Asc.l in standard Amos
  41. Loke ST+OS+4,0
  42. Loke ST+OS+8,Asc.l("DLTA")
  43. ST=Start(9)+12
  44. ST=Frame Play(ST,1,0)
  45. Double Buffer : Autoback 0
  46. Wait Vbl 
  47. SX=Screen Width : SY=Screen Height
  48. FR=0
  49. Repeat 
  50.   Screen Swap 
  51.   Repeat : Multi Wait : Until Timer>=SPEED : Timer=0
  52.   If FR=1 Then REST=ST
  53.   ST=Frame Play(ST,1) : Inc FR
  54.   If ST+12>=Start(9)+OS Then ST=REST : FR=1
  55. Until Inkey$=Chr$(27) or Mouse Key<>0
  56. Screen Close 0
  57. End 
  58.  
  59.  
  60. Darryl
  61.  
  62. -- Via DLG Pro v1.0
  63.  
  64.                #####\             _             /#####
  65.                #( )# |          _( )__         | #( )# 
  66.                ##### |         /_    /         | #####
  67.                #" "# |     ___m/I_ //_____     | #" "#
  68.                # O # |____#-x.\ /++m\ /.x-#____| # O #
  69.                #m.m# |   /" \ ///###\\\ / "\   | #m.m#
  70.                #####/    ######/     \######    \#####